***Full-Power Cabinets and Caretaker Administrations in Parliamentary Democracies, 1945-2024***
***Francesco Bromo and José A. Cheibub***
***15 July 2025***

**Figure 1: Average Duration of Full-Power Governments and Caretaker Administrations, 1945-2024

// Load dataset
use "figure1.dta", clear

// Common settings
local scheme s2mono
local bw 0.2

// Panel A: Full-Power Governments
twoway ///
    (lowess fullpower_avg year, bwidth(`bw')), ///
    title("{bf:A. Full-Power Governments}", size(medsmall)) ///
    ytitle("Average Days/Formations", size(small)) ///
    xtitle("Year", size(small)) ///
    ylabel(, labsize(small)) ///
    xlabel(, labsize(small)) ///
    legend(off) ///
    scheme(`scheme') ///
    graphregion(color(white)) ///
    name(panelA, replace)

// Panel B: All Caretaker Administrations
twoway ///
    (lowess formation_avg year, bwidth(`bw')), ///
    title("{bf:B. All Caretaker Administrations}", size(medsmall)) ///
    ytitle("Average Days/Formations", size(small)) ///
    xtitle("Year", size(small)) ///
    ylabel(, labsize(small)) ///
    xlabel(, labsize(small)) ///
    legend(off) ///
    scheme(`scheme') ///
    graphregion(color(white)) ///
    name(panelB, replace)

// Panel C: Decomposition of Caretaker Administrations
twoway ///
    (lowess elecform_avg year, bwidth(`bw') ///
        lwidth(medthick) lpattern(solid) ///
        text(155 2010 "All with Elections", size(small))) ///
    (lowess disstoelecform_avg year, bwidth(`bw') ///
        lwidth(medthick) lpattern(dash) ///
        text(80 1992 "Dissolution to Election", size(small))) ///
    (lowess electofullform_avg year, bwidth(`bw') ///
        lwidth(medthick) lpattern(dot) ///
        text(30 1975 "Election to Formation", size(small))), ///
    title("{bf:C. Decomposition of Caretaker Administrations}", size(medsmall)) ///
    ytitle("Average Days/Formations", size(small)) ///
    xtitle("Year", size(small)) ///
    ylabel(, labsize(small)) ///
    xlabel(, labsize(small)) ///
    legend(off) ///
    scheme(`scheme') ///
    graphregion(color(white)) ///
    name(panelC, replace)

// Panel D: Without Elections
twoway ///
    (lowess noelecform_avg year, bwidth(`bw')), ///
    title("{bf:D. Without Elections}", size(medsmall)) ///
    ytitle("Average Days/Formations", size(small)) ///
    xtitle("Year", size(small)) ///
    ylabel(, labsize(small)) ///
    xlabel(, labsize(small)) ///
    legend(off) ///
    scheme(`scheme') ///
    graphregion(color(white)) ///
    name(panelD, replace)

// Combine all panels
graph combine panelA panelB panelC panelD, ///
    cols(2) ///
    imargin(2 2 2 2) ///
    graphregion(color(white)) ///
    name(figure1, replace)
